home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8408.arc / RANDOM1.BAS < prev    next >
BASIC Source File  |  1984-05-11  |  436b  |  13 lines
  1. 10 '              'Toy random number generator
  2. 20  '               using multiplicative congruential method
  3. 30 '               - P. F. Hultquist, 1983
  4. 40 '
  5. 50 CLS : KEY OFF : X = 0     'Starting value
  6. 60 FOR I = 1 TO 110
  7. 70 X = (21*X + 29) MOD 100   'Generate 110 numbers so that we
  8. 80 PRINT USING "####"; X;    'can see the cycle begin to
  9. 90 NEXT I                    'repeat
  10. 100 LOCATE 10,35
  11. 110 PRINT "Figure 1"
  12. 120 END
  13.